home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 July / WPCJUL98.ISO / DXRS / BUYERS07.DXR / Internal_15_initialise pupets for displaying review info.ls < prev    next >
Encoding:
Text File  |  1998-05-11  |  579 b   |  16 lines
  1. on exitFrame
  2.   global ratingHeadingSpriteNum, LastratingHeadingSpriteNum, categoryPicSpriteNum, nameOfReviewSpriteNum, dateSpriteNum
  3.   set ratingHeadingSpriteNum to 23
  4.   set LastratingHeadingSpriteNum to 34
  5.   set categoryPicSpriteNum to 46
  6.   set nameOfReviewSpriteNum to 18
  7.   set dateSpriteNum to 42
  8.   repeat with s = ratingHeadingSpriteNum to LastratingHeadingSpriteNum
  9.     puppetSprite(s, 1)
  10.   end repeat
  11.   puppetSprite(nameOfReviewSpriteNum, 1)
  12.   puppetSprite(dateSpriteNum, 1)
  13.   puppetSprite(categoryPicSpriteNum, 1)
  14.   set the visible of sprite categoryPicSpriteNum to 1
  15. end
  16.